دانلود از سرور : دانلود 

حجم : 101 KB

رمز فایل : www.tarfande3tan.loxblog.com

تذکر : استفاده از هرگونه مطالب  سایت با ذکر منبع امکان پذیر می باشد .

کسانی که سورس ویژوال بیسیک می خواهند به این آدرس بروند

http://ir2up.ir/up1/13311459921.rar

 برای اینکه یک فایل را در ویژوال بیسیک کپی کنیم به ادامه مطلب بروید. 

 طور می توان کاری کرد که مثلا عدد 12345 رو از هم جدا کرد و هر کدوم از عدد ها رو روی یک لیبل نشون داد

براي اين كار  ما ميتونيم از توابع left ,right ,mid استفاده كنيم

شما برای محدود کردن کاراکتر هایی که صفحه کلید در TextBox وارد می کند بایستی در داخل رخداد KeyPress و
Change، کاراکترهای غیر مجاز را فیلتر کنید.
اگر فقط اینکار را در KeyPress انجام دهید، کاربر می تواند از Copy و Paste برای انتقال کاراکتر های غیر مجاز استفاده کند.
اگر فقط اینکار را در Change انجام دهیم، کاراکترهای غیر مجاز ابتدا به متن اضافه می شوند و سپس دوباره حذف خواهند شد

کد:

 يه label و يه Timer باز كنين

 توسط این دستورات می توانید یک متن دلخواه را به صورت سه بعدی روی فرم نشان دهید برای این کار ابتدا کد زیر را به یک ماجول اضافه کنید :

 با كد مي‌توانيد دكمه START را غيب كنيد.

 اين سورس فرم شما را به صورت كلاسيك و بدون تم نمايش مي دهد.

كد :

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Sub Form_Load()
SetWindowRgn Me.hWnd, 1, True
End Sub

 سورس كد تغيير مكان فرم در هر لحظه

 توسط این سورس کد می توانید از صفحه دسکتاب خودتان فیلم بگیرید.

*این تابع یک عدد تصادفی بین 0 و 1 را بر میگرداند:

Rnd()=0.432

 با استفاده از اين كد مي‌توانيد پسورد ديتابيس‌هاي Access 2000 را پيدا كنيد.

 بریم سراغ کدها
به ادامه مطلب مراجعه کنید.

 با اين سورس كد مي توانيد افكت زيبايي را در فرمتان ايجاد كنيد. واقعا زيباست !!!

اين هم كدش :

Private Sub Form_Load()
Me.AutoRedraw = True
For i = 0 To Height
Me.Line (0, i)-(Width, i), -RGB(0, i / 20, 0)
Next
End Sub

Private Sub Form_Resize()
Form_Load
End Sub